home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Precision Software Appli…tions Silver Collection 1
/
Precision Software Applications Silver Collection Volume One (PSM) (1993).iso
/
tutor
/
dbase1iv.exe
/
DB4LESS3.ZIP
/
EMPRATE.FMT
< prev
next >
Wrap
Text File
|
1988-11-17
|
1KB
|
53 lines
********************************************************************************
*-- Name....: EMPRATE.FMT
*-- Date....: 11-17-88
*-- Version.: dBASE IV, Format 1.0
*-- Notes...: Format files use "" as delimiters!
********************************************************************************
*-- Format file initialization code --------------------------------------------
IF SET("TALK")="ON"
SET TALK OFF
lc_talk="ON"
ELSE
lc_talk="OFF"
ENDIF
*-- This form was created in COLOR mode
SET DISPLAY TO COLOR
lc_status=SET("STATUS")
*-- SET STATUS was ON when you went into the Forms Designer.
IF lc_status = "OFF"
SET STATUS ON
ENDIF
*-- @ SAY GETS Processing. -----------------------------------------------------
*-- Format Page: 1
@ 2,23 SAY "EMPLOYEE PAY RATE INFORMATION FORM"
@ 4,19 TO 14,60
@ 6,23 SAY "Employee ID Number"
@ 6,50 GET empid PICTURE "AA999"
@ 9,23 SAY "Pay Rate Date"
@ 9,49 GET ratedate
@ 12,23 SAY "Pay Rate"
@ 12,50 GET rate PICTURE "999.99"
*-- Format file exit code -----------------------------------------------------
*-- SET STATUS was ON when you went into the Forms Designer.
IF lc_status = "OFF" && Entered form with status off
SET STATUS OFF && Turn STATUS "OFF" on the way out
ENDIF
IF lc_talk="ON"
SET TALK ON
ENDIF
RELEASE lc_talk,lc_fields,lc_status
*-- EOP: EMPRATE.FMT